home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
tlxset02.arc
/
TLXLOGON.ARC
/
TBBS.SLT
< prev
Wrap
Text File
|
1989-01-19
|
1KB
|
50 lines
// Sample script file to log-onto an TBBS based system.
//
// note: _entry_pass is a system variable into which the dialing routines
// put whatever is in the password field of the dialing directory
// entry which was connected to.
//
// note: replace First with your first name and replace Last with your last
// name. So, Joe Smith would put "Joe;Smith" on the line below.
str user_name[] = "First;Last";
main()
{
alarm(1);
if (not _entry_pass) // no pass, so didn't recog. board
{
prints ("Sorry, I don't know the password for this BBS!");
return;
}
if (not waitfor("Name", 120)) // if no prompt for name
{
prints("Log-on failed!");
return; // ...abort
}
cputs(user_name); // send name
cputs("^M");
if (not waitfor("correct",30))
{
prints("Log-on failed!");
return;
}
cputs("Y^M");
if (not waitfor("Password", 30)) // if no prompt for password
{
prints("Log-on failed!");
return; // ...abort
}
cputs(_entry_pass); // send pass
cputs("^M");
}